Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    'ոL_Data01
    Dim myAr As Variant
    'w}C
    myAr = Worksheets("L_Data01") _
    .Range("A1").CurrentRegion.Value
    With Spreadsheet1.ActiveSheet
        .Range(.Cells(1, 1), _
.Cells(UBound(myAr, 1), UBound(myAr, 2))).Value = myAr
    End With
End Sub

Private Sub UserForm_Initialize()
    'ոE_Data.xls E_Data01
    'wƨӷd
    Worksheets("L_Data01").Range("A1").CurrentRegion.Copy
    With Spreadsheet1.ActiveSheet.Range("A1")
        .Paste
        .Select
    End With
    Application.CutCopyMode = False
End Sub
